unit td_UnitGroupMst_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDataListForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinsDefaultPainters,
  dxSkinscxPCPainter, cxDataStorage,
  cxEdit, DB, cxDBData, Menus, DBActns, StdActns, ActnList, ImgList,
  cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ExtCtrls, StdCtrls,
  MisString, cxContainer, cxLabel, cxCheckBox,
  cxGridCustomPopupMenu,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, dxSkinsForm, cxNavigator,
  System.Actions, cxCustomData, cxFilter, cxData, cxGridPopupMenu, MemDS,
  DBAccess, Uni, System.ImageList, cxGridLevel, cxButtons;

type
  Tfrmtd_unitGroupMst_List = class(TfrmBaseDataListForm)
    Code: TcxGridDBColumn;
    Name: TcxGridDBColumn;
    Remark: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    function AppendRecord(): Boolean; override;
    function EditRecord(): Boolean; override;

  public
    { Public declarations }
  end;

var
  frmtd_unitGroupMst_List: Tfrmtd_unitGroupMst_List;

implementation

uses td_UnitGroupMst_Edit;

{$R *.dfm}

function Tfrmtd_unitGroupMst_List.AppendRecord(): Boolean;
begin
  ShowEditForm(Frmtd_unitgroupmst_Edit, TFrmtd_unitgroupmst_Edit, et_New);
  Result := True;
end;

function Tfrmtd_unitGroupMst_List.EditRecord(): Boolean;
begin
  ShowEditForm(frmtd_unitGroupMst_Edit, Tfrmtd_unitGroupMst_Edit, et_Modify);
  Result := True;
end;

procedure Tfrmtd_unitGroupMst_List.FormCreate(Sender: TObject);
begin
  FKeyField := 'GroupId';
  FCodeField:= 'Code';
  FTableName:= 'td_UnitGroupMst';
  inherited;
end;

end.


